Dr. Windows 3

home *** CD-ROM | disk | FTP | other *** search

/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / TBOX100.ZIP / TOOLBOX.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-11-01 | 10KB | 363 lines

frmtoolBox Form11 MsgBlaster1 MsgBlaster &Click on "..." for the About Box ----> Shape1 Command1_Click Label1 Caption GetFreePages Timer1_Timer Form_Load Toolhelp screen Width% Height Label1_ClickA Label1_DblClickT ExitApp MB_YESNO\ UpdateData DisplayWhatz Configure Label2_Click Index GetUserConfig; numDataSetsm Label2 DataSets[ DataSetNameu DataSet numDataSetc Recalc GetMemObject ConfigG Timer1 EnabledS Label0 Label2_DblClick Visible1 TitleWidth Picture1 DataSeti AskUserL ReadIniConfigp Form_DblClick FormTop xPos> FormLeftb Form1 MsgBlaster1e hWndTarget MsgListc WM_NCHITTEST MsgPassage EATMESSAGE WM_CLOSE WM_NCACTIVATEH ScaleModeG Form_Paint CaptionColor scaleWidth PREPROCESS POSTPROCESS MsgBlaster1_Message7 MsgVal wParam lParam% ReturnVal GetSysColor COLOR_ACTIVECAPTIONt COLOR_INACTIVECAPTION TwipsPerPixelY TwipsPerPixelXB lRetVal! Picture1_Click Form_UnloadU Cancel WriteProfileString Position GetProfileString Spaces ScaleHeight WriteIniConfigu WM_NCLBUTTONDBLq WM_NCLBUTTONDBLCLK. HT_SYSMENU HTCAPTION HTCLIENT HTSYSMENU? Form_Click~ WM_NCPAINTw WM_NCLBUTTONDOWN hSysMenu CreatePopupMenu AppendMenu MF_ENABLED> MF_STRING IDM_SYSMOVE IDM_SYSCLOSE( TrackPopupMenu TPM_LEFTALIGN TPM_LEFTBUTTON7 WM_COMMANDj SendMessage WM_SYSCOMMANDS SC_MOVE SC_CLOSE tmpTimer InPixels hMenu GetMenud hSubMenu GetSubMenuY Buttons OldModeP TwipsPerPixel[ Form2 MsgPass IDM_CUSTOMIZE OldTimer Form_KeyPress5 keyAscii Form_KeyDown keyCodeC Shift! Form_KeyUp fStayOnTop GetProfileInt SetWindowPosZ IDM_CUSTOM DestroyMenu GetMenuH GetSystemMenu ModifyMenu MF_BYPOSITION DeleteMenu- DrawMenuBar0 SM_CYMENU GetSystemMetricsL ScreenRect Right ScrrenRecte bottom ShowSysMenu" InSysMenu HideSysMenu WM_KEYDOWNa VT_ESC VK_ESCAPE LogFName Timer2 Timer2_Timer SaveLog AppendLog FName LogTime Pad1 MF_X MF_SEPERATOR fForceLeft btnExit_Clickw IDM_ABOUTV frmAbout MF_SEPARATOR WM_EXITMENULOOP fCaptureMsg fDebug InitODS) Image1_ClickI Image1_MouseDown image1 Picture scrn_dn Image1_MouseUpm Image6_ClickK Image1_DragDrop@ source= control} image currentIconType Image1_MouseMove draggable_ dragState CAN_DRAG# DRAGGING CANT_DRAG Label3_Click Panel3D1_DragDropS Form_QueryUnload UnloadMode1 titleBar BackColorr HWND_TOPMOST FLAGS WM_ACTIVATEAPP MsgBlaster2_Message HWND_NOTTOPMOST) ThenShowSysMenu2 keyPressW mnuSystem frmMain Form_DragOver state nodrop DragIconx Image1_DragOver~ Label1_DragOver" Label4_Click Label5_ClickE Label3_DragDropX Label5_DragDropk Label4_DragDropA Label2_DragDrop Label2_DragOver Label3_DragOver Label4_DragOver Label5_DragOverN Panel3D1_DragOvere picIcons LoadPicture graphiccellLoadPicture" graphicCel GraphicCellb Image2_Click! dragIcon_Click iconDrag draghState iconBox inage1* lRetValue SWP_NOMOVE SWP_NOSIZE SWP_NOACTIVATE{ Message Count\ Line35 BorderColor COLOR_BTNHIGHLIGHT Line4 Line7 Line8p COLOR_BTNSHADOW BUTTON_SHADOW% BUTTON_HIGHLIGHT IconActive WindowState0 mnuIconBox Checked IconBoxOn3 hideFloatersNoUpdate showFloatersRegardless{ showFloaters frmMainWindowState ThenIYr toolBoxActive toolBoxOn toolboxL mnuToolboxg frmToolBoxc WINDOW_FRAME windowframe color ACTIVE_TITLE_BAR INACTIVE_TITLE_BAR active title inactive ActiveForm BAR_HEIGHT BARHEIGHT painta event getsR gainingu window requires updating change activationD moving_ mouse wants oblige clicks! Windows thinks~ clicked whateverX selected without dismissing click release stays ABOVE Normal menus Menu ID'sS Form_KeyDown Form_Load Make the toolbox a top-most window* Set up message blaster to respond to desired events...* Create our fake system menu for the toolbox (I don't use VBs own popup menu function because it lacks the full functionality of the API function) &Move &Close Alt+F4 Form_Paint Refresh the title bar and system menu. The paint event gets called each time the system colors are changed, so we keep up to date on the fly... Vertical line beteen control menu and captionn (using the windowframe system color) Horizontal line below caption (using the windowframe system color)r Fill in control menu (always light gray) Box for bar in control menu (always black) Line inside bar in control menu (always white) Vertical shadow on bar in control menu (always dark gray)w Horizontal shadow on bar in control menu (always dark gray) MsgBlaster1_Message Which message has come to us?? The WM_ACTIVATEAPP message means our app is losing or gaining the focus. We check this so we can show or hide the floating toolbox.x The WM_NCACTIVATE message means the non-client area of a window requires updating due to a change in the activation state of that window. All we need to redraw is the titlen Close has been selected from the system menu.i This is the magic bit - windows tells us that the user isn moving the mouse over our window - it wants us to tell itT WHAT the mouse is moving over, so we oblige. Then, when the user clicks, windows thinks the user has clicked ont whatever we have told it the mouse was over. Tell windows the mouse is over the system menu... Tell windows the mouse is over the title bar.... Tell windows the mouse is over the client area... A double click in the non-client area! If it is over the system menu then we close (hide) the toolbox...x A buttondown in the non-client area! If it is over thes system menu then we show the system menu...u A command message (meaning a command button or menu-item has been selected).e If the move menu item was selected, send a move command. If the close menu item was selected, close the window. ShowSysMenu Set up the rectangle that defines an area where the mouseb can be clicked without dismissing the menu. This lets the user click and release over the system menu and the menu stays up. VBs built in popup menu function doesn't support. this.s If the menu will go off the bottom of the screen, make it draw ABOVE the control box. Note that Windows won't draw a menu off the screen, but it will draw it covering the controll box. Normal control menus don't do this.s titleBar Paint titleBar If the toolbox is the active window then paint with the active title bar coloro If the toolbox is inactive then paint with the inactive title bar color